#Keiser Guttman for kPCA and PCA
setClass("constDimChooser",contains="DimChooser",
		prototype=prototype(
				.description="const DimChooser"
		)
)
setIs("constDimChooser","PCADimChooser")
setIs("constDimChooser","kPCADimChooser")
setIs("constDimChooser","MDSDimChooser")
setIs("constDimChooser","LLEDimChooser")
setIs("constDimChooser","EntropyDimChooser")
#general functions
constDim <- function(.Object,reducer,...) {
	return(as.integer(.Object@.dimSeqStart,reducer@.tmpData))
}
#methods
setMethod("chooseBest",
		signature=c("constDimChooser","PCAReducer"),
		definition= constDim
)


setMethod("chooseBest",
		signature=c("constDimChooser","kPCAReducer"),
		definition= constDim
) 
setMethod("chooseBest",
		signature=c("constDimChooser","EntropySelectionReducer"),
		definition= constDim
)

setMethod("chooseBest",
		signature=c("constDimChooser","MDSReducer"),
		definition= constDim
)
setMethod("chooseBest",
		signature=c("constDimChooser","LLEReducer"),
		definition= constDim
)

